Option Explicit
Sub H_Sample015()
    'ϥH_Sample011ϯäR
    Dim mySht  As Worksheet
    Dim myPtbl As PivotTable
    Set mySht = ThisWorkbook.Worksheets(1)		'ϯäRsb
    Set myPtbl = mySht.PivotTables(1)         		'wϯäR
    'wno
    With myPtbl
        MsgBox .GetData("Ave B")
        MsgBox .GetData("Ave")
    End With
    Set myPtbl = Nothing					'
    Set mySht = Nothing
End Sub
